home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / texted1a / module1.bas < prev    next >
Encoding:
BASIC Source File  |  1999-09-20  |  567 b   |  28 lines
  1. Attribute VB_Name = "Module1"
  2. Public fMainForm As frmMain
  3.  
  4.  
  5. Sub Main()
  6.     Set fMainForm = New frmMain
  7.     Load fMainForm
  8.     fMainForm.Show
  9.     Load frmSplash
  10.     frmSplash.Show
  11. End Sub
  12.  
  13. 'Sub Main()
  14. '  frmMain.Show
  15. '  frmText1.Show
  16. 'End Sub
  17.  
  18.  
  19. Public Sub LoadNewDoc()
  20.     Static lDocumentCount As Long
  21.     Dim frmDoc As frmText1
  22.     lDocumentCount = lDocumentCount + 1
  23.     Set frmDoc = New frmText1
  24.     frmDoc.Caption = "Untitled" & lDocumentCount
  25.     frmDoc.Show
  26. '    frmMain.StatusBar1.Panels(3).Text = frmMain.ActiveForm.Caption
  27. End Sub
  28.